<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admgroupdroitgen.php,v $ 
 * $Date: 2005/08/29 14:59:21 $ 
 * $Revision: 1.2 $ 
 * 
 * ********* CVS HEADER ********* 
 */
/**
  * Cette fonction genere tous les fichiers de droits pour RPortal...
  */
$query="SELECT id FROM groupe";
$r_groupe=rportalrequete($query) or rportalerreur($query,'?op=admgroupliste');
while($groupe=rportalligne($r_groupe)){    
      $query="SELECT droit.id_fonction,code_op,rportal_menu.fichier AS menu,fonction.fichier AS fichier FROM droit,fonction LEFT OUTER JOIN rportal_menu ON fonction.id_menu=rportal_menu.id WHERE droit.id_fonction=fonction.id_fonction AND droit.id_groupe='$groupe[id]'";
      $result=rportalrequete($query) or rportalerreur($query,'?op=admgroupliste');
      $fichier = 'session/droit/'.$groupe['id'].'.php';
      $content="<?php\n\$sessiondroit=array();\n\$sessionmenu=array();\n";
      while($row=rportalligne($result)){
        $content.="\$sessiondroit['$row[code_op]']='$row[fichier]';\n\$sessionmenu['$row[code_op]']='$row[menu]';\n";
      }
      $content.="?>";
      $fp = fopen($fichier, "w");
      fwrite($fp, $content); 
      fclose($fp);
}
header('Location: ?op=admgroupliste');
exit;
?>